home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
M-More Monthly Disks
/
(c)mb.d64
/
stock.c
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
7KB
|
285 lines
1 REM STOCK MARKET SIMULATION
2 REM COPIED FROM BASIC COMPUTER GAMES
3 REM EDITED BY BRIAN WALKER
4 REM #8829
5 REM FEBRUARY 1984
6 :
7 PRINT"[147][144]";
8 POKE 53281,1
9 POKE 53280,0
11 GOSUB 1080
110 DIM S(5),P(5),Z(5),C(5)
112 REM SLOPE OF MARKET TREND:A (SAME FOR ALL STOCKS)
113 LET X=1
114 LET A=INT((RND(-TI)/10)*100+.5)/100
115 LETYT T5=O
116 LET X9=0
117 LET N1=O
118 LET N2=O
119 LET E1=O
120 LET E2=O
121 REM INTRODUCTION
122 GOTO1100
127 PRINT"[147]"
128 PRINTTAB(15)"INSTRUCTIONS[146]"
129 PRINT:PRINT:PRINT
130 PRINT" THIS PROGRAM PLAYS THE STOCKMARKET.";
135 PRINT" YOU WILL BE GIVEN $10,000 AND MAY BUY";
140 PRINT" OR SELL STOCKS. STOCK PRICES WILL BE GENERATED RANDOMLY.";
145 PRINT" A TABLE OF AVAIL- ABLE STOCKS, THEIR PRICES, AND THE";
150 PRINT" NUM- BER OF SHARES IN YOUR PORTFOLIO WILL ALSO BE PRINTED."
151 PRINT:PRINT:PRINT:PRINTTAB(10);"HIT ANY KEY TO CONTINUE[146]"
152 GET A$ : IF A$="" THEN 152
153 A$=""
154 PRINT"[147]"
155 PRINT" AT THE BOTTOM OF THE CHART YOU WILL SEE THE ";
160 PRINT"STOCK'S INITIALS. HERE YOU IND-ICATE WEITHER ";
170 PRINT"YOU WISH TO BUY, SELL, OR DO NRUNING. ";
180 PRINT"TO BUY TYPE IN THE NUMBER OF SHARES YOU WISH TO BUY (EX:50).";
185 PRINT" TO SELL TYPE IN THE NUMBER OF SHARES YOU WISH TO SELL WITH A ";
190 PRINT"MINUS SIGN (-) IN FRONT (EX:-50). TO DO NOTHING ";
192 PRINT"TYPE IN A ZERO (0). PRESS RETURN AFTER EACH ENTRY."
193 PRINT" A BROKERAGE FEE OF 1% IS CHARGED ON EACH TRANSACTION.";
194 PRINT" 'NOTE' IF A STOCK'S VALUE DROPS TO ZERO IT MAY REBOUND";
195 PRINT" TO A POSITIVE VALUE AGAIN. YOU CANNOT BUY STOCK WHEN THE PRICE";
196 PRINT" IS AT ZERO."
197 PRINT:PRINTSPC(2);" TO END TYPE '9999' IN FOR IBM STOCK[146]":PRINT
198 PRINTTAB(13);"****GOOD LUCK****":PRINT
199 PRINTTAB(10);"HIT ANY KEY TO CONTINUE[146]"
200 GET A$ : IF A$="" THEN 200
201 A$=""
202 REM GENERATIONS OF STOCK TABLE; INPUT REQUESTS
210 REM INITIAL STOCK VALUES
220 S(1)=100
240 S(3)=150
250 S(4)=140
260 S(5)=110
265 REM INITIAL T8 - # DAYS FOR FIRST TREND SLOPE (A)
266 LET T8=INT(4.99*RND(X)+1)
267 REM RANDOMIZE SIGN OF FIRST TREND SLOPE (A)
268 IF RND(X)>.5 THEN 270
269 LET A=-A
270 REM RANDOMIZE INITIAL VALUES
280 GOSUB 830
285 REM INITIAL PORTFOLIO CONTENTS
290 FOR I=1 TO 5
300 P(I)=0
305 LET Z(I)=0
310 NEXT I
320 PRINT
330 PRINT"[147]" : LET C = 10000
333 LET C=10000
338 REM INITIAL PORTFOLIO
340 PRINT;TAB(5)"STOCK";TAB(20)"INITIAL";TAB(29)"PRICE/SHARE"
341 PRINT
350 PRINT"BALLISTIC MISSILES";TAB(22)" IBM";TAB(30);S(1)
351 PRINT
352 PRINT"RED CROSS - U.S.A.";TAB(22)" RCA";TAB(30);S(2)
353 PRINT
354 PRINT"L. BUMRAP & JOKE";TAB(22)" LBJ";TAB(30);S(3)
355 PRINT
356 PRINT"AMERICAN BANKRUPT CO.";TAB(22)" ABC"TAB(30);S(4)
357 PRINT
358 PRINT"CENSURED BOOKS STORE";TAB(22)" CBS"TAB(30);S(5)
360 PRINT
361 REM NYSE AVERAGE:Z5; TEMP. VALUE:Z4; NET CHANGE:Z6
363 LET Z4=Z5
364 LET Z5=0
365 LET T=0
370 FOR I=1 TO 5
375 LET Z5=Z5+S(I)
380 LET T=T+S(I)*P(I)
390 NEXT I
391 LET Z5=INT(100*(Z5/5)+.5)/100
392 LET Z6=INT((Z5-Z4)*100+.5)/100
393 REM TOTAL ASSETS:D
394 LET D=T+C
395 IF X9>0 THEN 398
396 :
397 :
398 PRINT" ********************************":
399 :
400 LET T=INT(100*T+.5)/100
401 PRINT"TOTAL STOCK ASSETS ARE $";T
403 LET C=INT(100*C+.5)/100
405 PRINT"TOTAL CASH ASSETS ARE $";C
407 LET D=INT(100*D+.5)/100
408 PRINT"TOTAL ASSETS ARE $";D:
409 PRINT" ********************************":
410 PRINT
411 IF X9=0 THEN 416
416 IF Q9=1 THEN 419
417 IF Q9=2 THEN 997
419 REM INPUT TRANSACTIONS
420 PRINT"WHAT IS YOUR TRANSACTION IN:"
430 PRINT"IBM [157][157][157][157][157][157][157][157][157][157]";
431 INPUT Z(1)
440 IF Z(1)=9999 THEN 997
441 IF S(1)=0 THEN Z(1)=0
450 INPUT"[145]RCA [157][157][157][157][157][157][157][157][157][157]";Z(2)
461 :
462 IF S(2)=0 THEN Z(2)=0
470 PRINT"[145]LBJ [157][157][157][157][157][157][157][157][157][157]";
480 INPUTZ(3)
481 IF S(3)=0 THEN Z(3)=0 :
490 PRINT"[145]ABC [157][157][157][157][157][157][157][157][157][157]";
500 INPUT Z(4)
501 IF S(4)=0 THEN Z(4)=0 :
510 PRINT"[145]CBS [157][157][157][157][157][157][157][157][157][157]";
520 INPUT Z(5)
521 IF S(5)=0 THEN Z(5)=0 :
525 PRINT"[145]"
530 REM TOTAL DAY'S PURCHASES IN $:P5
540 LET P5=0
550 REM TOTAL DAY'S SALES IN $:S5
560 LET S5=0
570 FOR I=1 TO 5
575 LET Z(I)=INT(Z(I)+.5)
580 IF Z(I)<0 THEN 610
590 LET P5=P5+Z(I)*S(I)
600 GOTO 620
610 LET S5=S5-Z(I)*S(I)
612 IF -Z(I)<=P(I) THEN 620
614 PRINT"YOU HAVE OVERSOLD A STOCK, TRY AGAIN.[146]"
616 PRINT"[145][145][145]WHAT IS YOUR TRANSACTION IN" : GOTO430
620 NEXT I
622 REM TOTAL VALUE OF TRANSACTIONS:T5
625 LET T5=P5+S5
630 REM BROKERAGE FEE:B5
640 LET B5=INT(.01*T5*100+.5)/100
650 REM CASH ASSETS=OLD CASH ASSETS-TOTAL PURCHASES
652 REM -BROKERAGE FEES+TOTAL SALES:C5
654 LET C5=C-P5-B5+S5
656 IF C5>=0 THEN 674
658 PRINT"YOU HAVE USED $";ABS(C5)"[157] TO MUCH[146]"
660 PRINT"[145][145][145]WHAT IS YOUR TRANSACTION IN" : GOTO430
674 LET C=C5
675 REM CALCULATE NEW PORTFOLIO
680 FOR I=1 TO 5
690 LET P(I)=P(I)+Z(I)
700 NEXT I
710 REM CALCULATE NEW STOCK VALUES
720 GOSUB 830
749 REM ? PORTFOLIO
750 REM BELL RINGING-DIFFERENT ON MANY COMPUTERS
752 FOR I=1 TO 20
753 PRINT CHR$(135);
754 NEXT I
755 PRINT"[147]"
756 PRINT"*********END OF DAY'S TRADING**********"
758 PRINT
768 PRINT"STOCK";TAB(7)"PRICE"TAB(15)"HOLDINGS";TAB(25)"VALUE";TAB(33)"CHANGE"
769 PRINT
770 PRINT"IBM";TAB(6);S(1);TAB(15);P(1);TAB(24);(S(1)*P(1));TAB(33);C(1):PRINT
771 PRINT"RCA";TAB(6);S(2);TAB(15);P(2);TAB(24);(S(2)*P(2));TAB(33);C(2):PRINT
772 PRINT"LBJ";TAB(6);S(3);TAB(15);P(3);TAB(24);(S(3)*P(3));TAB(33);C(3):PRINT
773 PRINT"ABC";TAB(6);S(4);TAB(15);P(4);TAB(24);(S(4)*P(4));TAB(33);C(4):PRINT
774 PRINT"CBS";TAB(6);S(5);TAB(15);P(5);TAB(24);(S(5)*P(5));TAB(33);C(5)
775 LET X9=1
790 PRINT
791 Z(1)=0
792 Z(2)=0
793 Z(3)=0
794 Z(4)=0
795 Z(5)=0
810 GOTO 360
829 REM NEW STOCK VALUES - SUBROUTINE
830 REM RANDOMLY PRODUCE NEW STOCK VALUES BASED ON PREVIOUS
831 REM DAY'S VALUES
832 REM N1,N2 ARE RANDOM NUMBERS OF DAY'S WHICH RESPECTIVELY
833 REM DETERMINE WHEN STOCK I1 WILL INCREASE 10 PTS. AND STOCK
834 REM 12 WILL DECREASE 10 PTS.
840 REM IF N1 DAY'S HAVE PASSED, PICK AN I1, SET E1, DETERMINE NEW N1
841 IF N1>0 THEN 850
845 LET I1=INT(4.99*RND(X)+1)
846 LET N1=INT(4.99*RND(X)+1)
847 LET E1=1
850 REM IF N2 DAYS HAVE PASSED, PICK AN I2, SET E2, DETERMINE NEW N2
851 IF N2>0 THEN 860
855 LET I2=INT(4.99*RND(X)+1)
856 LET N2=INT(4.99*RND(X)+1)
857 LET E2=1
860 REM DEDUCT ONE DAY FROM N1 AND N2
861 LET N1=N1-1
862 LET N2=N2-1
890 REM LOOP THROUGH ALL STOCKS
900 FOR I=1 TO 5
910 LET X1=RND(X)
915 IF X1>.25 THEN 920
916 LET X1=.25
917 GOTO 935
920 IF X1>.50 THEN 925
921 LET X1=.50
922 GOTO 935
925 IF X1>.75 THEN 930
926 LET X1=.75
927 GOTO 935
930 LET X1=0.0
931 REM BIG CHANGE CONSTANT:W3 (SET TO ZERO INITIALLY)
935 LET W3=0
936 IF E1<1 THEN 945
937 IF INT(I1+.5)<>INT(I+.5) THEN 945
938 REM ADD 10 PTS. TO THIS STOCK; RESET E1
939 LET W3=10
943 LET E1=0
945 IF E2<1 THEN 955
947 IF INT(12+.5)<>INT(I+.5) THEN 955
948 REM SUBTRACT 10 PTS. FROM THIS STOCK; RESET E2
949 LET W3=W3-10
953 LET E2=0
954 REM C(I) IS CHANGE IN STOCK VALUE
955 LET C(I)=INT(A*S(I))+X1+INT(3-6*RND(X)+.5)+W3
956 LET C(I)=INT(100*C(I)+.5)/100
957 LET S(I)=S(I)+C(I)
960 IF S(I)>0 THEN 967
964 LET C(I)=0
965 LET S(I)=0
966 GOTO 970
967 LET S(I)=INT(100*S(I)+.5)/100
970 NEXT I
972 REM AFTER T8 DAYS RANDOMOLY CHANGE TREND SIGN AND SLOPE
973 LET T8=T8-1
980 RETURN
985 REM RANDOMLY CHANGE TREND SIGN AND SLOPE (A), AND DURATION
986 REM OF TREND (T8)
990 LET T8=INT(4.99*RND(X)+1)0+.5)/100
992 LET A=INT ((RND(X)/10)*100+.5)/100
993 LET S4=RND(X)
994 IF S4<=.5 THEN 997
995 LET A=-A
996 RETURN
997 PRINT"[147]"
998 PRINT TAB(11)"HOPE YOU HAD FUN!![146]"
999 PRINT "YOUR TOTAL ASSETS WERE $";D
1000 IF D<10000 GOTO 1050
1010 IF D>=10000 AND D <30000 GOTO 1060
1020 IF D>=30000 GOTO 1070
1050 PRINT"YOU WILL NEVER BE A MONEY WIZARD" : GOTO 1079
1060 PRINT"FAIR EFFORT BUT NEEDS A LOT OF WORK" : GOTO 1079
1070 PRINT"VERY NICELY DONE, "
1071 PRINT" ON A SCALE OF 1 TO 10, A 15":GOTO 1079
1079 FOR X=1TO5000 : NEXTX :GOTO 112
1080 REM ***** TITLE PAGE *****
1082 T1$="TORONTO"
1084 T2$="STOCK - MARKET"
1088 FOR I=1TO38: PRINT"[166][146]";:NEXT
1089 FOR I=1TO22: PRINT"[157][166][146]";:NEXT
1090 FOR I=1TO37: PRINT"[157][157][166][146]";:NEXT
1091 FOR I=1TO22: PRINT"[145][157][166][146]";:NEXT
1093 PRINT"";T1$
1094 PRINT"";T2$
1095 PRINT"";T3$
1096 FOR X = 1 TO 2500 : NEXT X
1097 X=0 : RETURN
1100 PRINT"[147]":PRINT"OPTIONS[146]"
1110 PRINT"1) START"
1120 PRINT"2) INSTRUCTIONS"
1130 PRINT"3) END"
1131 PRINT:PRINT:PRINT:PRINT:PRINTTAB(9);"PLEASE SELECT A NUMBER[146]"
1135 GET X$ : IF X$="" THEN 1135
1140 IF X$="1" THEN PRINT"[147]PLEASE WAIT": GOTO 201
1142 IF X$="2" THEN GOTO 127
1144 IF X$="3" THEN GOTO 1200
1200 PRINT"[147]"
1202 END